home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_35063.txt < prev    next >
Encoding:
Text File  |  1991-04-30  |  1.7 KB  |  78 lines
  1. -- card: 35063 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2612
  5. -- name: MungeMCTB
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=189 top=234 right=283 bottom=269
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 27056 / 27056
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Try it
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then edit script of me
  23.   ask "Please enter the red component (0-65535)" with "65535"
  24.   put it into red
  25.   if red is empty then exit mouseup
  26.  
  27.   ask "Please enter the green component (0-65535)" with "65535"
  28.   put it into green
  29.   if green is empty then exit mouseup
  30.  
  31.   ask "Please enter the blue component (0-65535)" with "0"
  32.   put it into blue
  33.   if blue is empty then exit mouseup
  34.  
  35.   MungeMCTB Red,Green,Blue
  36.  
  37.   if the result is not empty then put the result
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part contents for background part 2
  43. ----- text -----
  44. MungeMCTB
  45.  
  46. -- part contents for background part 3
  47. ----- text -----
  48. MungeMCTB (meaning: Munge Menu Color Table) is an XCMD that changes the color of the background of both the Menu Bar and the pull-down menus to a specified color.
  49.  
  50.  
  51.  
  52. NOTE: Make sure that you run this on a Mac II (color helps).
  53.  
  54. Enjoy.......Chris Knepper 
  55. CIS: 76347,1757
  56. ┬⌐ Apple Computer, Inc.
  57.  
  58.  
  59.  
  60. -- part contents for background part 10
  61. ----- text -----
  62. Syntax:
  63.  
  64. MungeMCTB <Red>,<Green>,<Blue>
  65.  
  66. Pass 3 parameters to MungeMCTB (one each for the red, green, and blue components of the color you want the menu to be.)
  67.  
  68. ex:  MungeMCTB 65535,65535,0
  69.  
  70. returns any error in 'the result'.
  71.  
  72. -- part contents for background part 13
  73. ----- text -----
  74. 30
  75.  
  76. -- part contents for background part 30
  77. ----- text -----
  78. XCMD